#!/usr/bin/perl
use DBI qw(:sql_types);
require "prefs.pl";

my @row;

my $dbh = DBI->connect("dbi:SQLite:$db_filename");

$rc  = $dbh->begin_work;
$sth = $dbh->prepare("SELECT * FROM domains");
$sth->execute();
 while ( @row = $sth->fetchrow_array ) {
    print "@row\n";  
  }
$rc  = $dbh->commit;
$rc  = $dbh->disconnect;
